home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1999 Spring / macformat-077.iso / Demos / RealPool Demo / 3D.DAT / 00008_PLayers.ls < prev    next >
Encoding:
Text File  |  1998-05-02  |  844 b   |  43 lines
  1. global playermode, name2
  2.  
  3. on mouseDown
  4.   set playermode to 0
  5.   set ml to ((the mouseV - the top of sprite the clickOn) / (the height of cast the number of member the castNum of sprite the clickOn / 3)) + 1
  6.   if (ml < 1) or (ml > 5) then
  7.     exit
  8.   end if
  9.   set playermode to ml - 1
  10.   case playermode of
  11.     0:
  12.       autoshoot(-88.0, 0.0)
  13.       set name1 to " "
  14.       set name2 to " "
  15.       dolocalplayer()
  16.       set playermode to 1
  17.       go(115)
  18.       exit
  19.     1:
  20.       autoshoot(-88.0, 0.0)
  21.       butsound()
  22.       set playermode to 0
  23.       set name1 to " "
  24.       set name2 to " "
  25.       go("players")
  26.       exit
  27.     2:
  28.       autoshoot(-88.0, 1.0)
  29.       gonet()
  30.       nothing()
  31.     3:
  32.     12:
  33.       initserialport()
  34.       openchat()
  35.     13:
  36.       initmodem()
  37.       wait(60)
  38.       dial(18185084756.0)
  39.       openchat()
  40.   end case
  41.   cursor(-1)
  42. end
  43.